home *** CD-ROM | disk | FTP | other *** search
/ ftp.mactech.com 2010 / ftp.mactech.com.tar / ftp.mactech.com / thinkref / archive / THINKPascalUH2.1.sea / THINKPas Univ Hdr 2.1 / Interfaces / TSMTE.p < prev    next >
Text File  |  1995-09-14  |  3KB  |  109 lines
  1. { Converted with MPW2TPas Tuesday, September 12, 1995 11:05:26 PM }
  2. {}
  3. {     File:        TSMTE.p}
  4. { }
  5. {     Contains:    Text Services Managerfor TextEdit Interfaces.}
  6. { }
  7. {     Version:    Technology:    System 7.5}
  8. {                 Package:    Universal Interfaces 2.1 in “MPW Latest” on ETO #18}
  9. { }
  10. {     Copyright:    © 1984-1995 by Apple Computer, Inc.}
  11. {                 All rights reserved.}
  12. { }
  13. {     Bugs?:        If you find a problem with this file, use the Apple Bug Reporter}
  14. {                 stack.  Include the file and version information (from above)}
  15. {                 in the problem description and send to:}
  16. {                     Internet:    apple.bugs@applelink.apple.com}
  17. {                     AppleLink:    APPLE.BUGS}
  18. { }
  19. {}
  20.  
  21. unit TSMTE;
  22. interface
  23.  
  24.  
  25. {$IFC UNDEFINED __TSMTE__}
  26. {$SETC __TSMTE__ := 1}
  27.  
  28.     uses
  29.         ConditionalMacros, Types, Quickdraw, TextEdit, Dialogs, AppleTalk, Processes, PPCToolbox, Notification, EPPC, Files, Aliases, AppleEvents, Components, TextServices;
  30.  
  31. { $PUSH}
  32. { $ALIGN MAC68K}
  33. { $LibExport+}
  34.  
  35.     const
  36.         kTSMTESignature = 'tmTE';
  37.         kTSMTEInterfaceType = 'tmTE';
  38.         kTSMTEDialog = 'tmDI';
  39.  
  40. { update flag for TSMTERec}
  41.         kTSMTEAutoScroll = 1;
  42.  
  43. { callback procedure definitions}
  44.     type
  45.         TSMTEPreUpdateProcPtr = ProcPtr;  { PROCEDURE TSMTEPreUpdate(textH: TEHandle; refCon: LONGINT); }
  46.         TSMTEPostUpdateProcPtr = ProcPtr;  { PROCEDURE TSMTEPostUpdate(textH: TEHandle; fixLen: LONGINT; inputAreaStart: LONGINT; inputAreaEnd: LONGINT; pinStart: LONGINT; pinEnd: LONGINT; refCon: LONGINT); }
  47.         TSMTEPreUpdateUPP = UniversalProcPtr;
  48.         TSMTEPostUpdateUPP = UniversalProcPtr;
  49.  
  50.         TSMTERec = record
  51.                 textH: TEHandle;
  52.                 preUpdateProc: TSMTEPreUpdateUPP;
  53.                 postUpdateProc: TSMTEPostUpdateUPP;
  54.                 updateFlag: LONGINT;
  55.                 refCon: LONGINT;
  56.             end;
  57.  
  58.         TSMTERecPtr = ^TSMTERec;
  59.         TSMTERecHandle = ^TSMTERecPtr;
  60.  
  61. {$IFC NOT STRICT_WINDOWS }
  62.         TSMDialogRecord = record
  63.                 fDialog: DialogRecord;
  64.                 fDocID: TSMDocumentID;
  65.                 fTSMTERecH: TSMTERecHandle;
  66.                 fTSMTERsvd: array[0..2] of LONGINT;                { reserved}
  67.             end;
  68.  
  69.         TSMDialogPeek = ^TSMDialogRecord;
  70.  
  71. {$ENDC}
  72.  
  73.     const
  74.         uppTSMTEPreUpdateProcInfo = $000003C0; { PROCEDURE (4 byte param, 4 byte param); }
  75.         uppTSMTEPostUpdateProcInfo = $000FFFC0; { PROCEDURE (4 byte param, 4 byte param, 4 byte param, 4 byte param, 4 byte param, 4 byte param, 4 byte param); }
  76.  
  77.     function NewTSMTEPreUpdateProc (userRoutine: TSMTEPreUpdateProcPtr): TSMTEPreUpdateUPP;
  78.     {$IFC NOT GENERATINGCFM }
  79.     inline
  80.         $2E9F;
  81.     {$ENDC}
  82.  
  83.     function NewTSMTEPostUpdateProc (userRoutine: TSMTEPostUpdateProcPtr): TSMTEPostUpdateUPP;
  84.     {$IFC NOT GENERATINGCFM }
  85.     inline
  86.         $2E9F;
  87.     {$ENDC}
  88.  
  89.     procedure CallTSMTEPreUpdateProc (textH: TEHandle; refCon: LONGINT; userRoutine: TSMTEPreUpdateUPP);
  90.     {$IFC NOT GENERATINGCFM}
  91.     inline
  92.         $205F, $4E90;
  93.     {$ENDC}
  94.  
  95.     procedure CallTSMTEPostUpdateProc (textH: TEHandle; fixLen: LONGINT; inputAreaStart: LONGINT; inputAreaEnd: LONGINT; pinStart: LONGINT; pinEnd: LONGINT; refCon: LONGINT; userRoutine: TSMTEPostUpdateUPP);
  96.     {$IFC NOT GENERATINGCFM}
  97.     inline
  98.         $205F, $4E90;
  99.     {$ENDC}
  100.  
  101. { $ALIGN RESET}
  102. { $POP}
  103.  
  104. {$ENDC}
  105.  {__TSMTE__}
  106.  
  107. implementation
  108. end.
  109.